home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / amig_ad_os / avm / prog / source / getpassword.avmsrc < prev    next >
Text File  |  1977-12-31  |  3KB  |  139 lines
  1. startrecord=true
  2. label=
  3. nodetype=14
  4. comment=This is a procedure which accepts 1 argument, a password
  5. nextactiontype=3
  6. nextactionaction=
  7. endrecord=true
  8. startrecord=true
  9. label=getpassword
  10. nodetype=8
  11. line1=procedure
  12. line2=parse arg password
  13. line3=count = 3 /* max of 3 times */
  14. line4=if password = '' then return 1
  15. line5=
  16. line6=
  17. line7=
  18. line8=
  19. line9=
  20. line10=
  21. nextactiontype=3
  22. nextactionaction=
  23. endrecord=true
  24. startrecord=true
  25. label=getpasswordagain
  26. nodetype=8
  27. line1=count = count - 1
  28. line2=if count = 0 then return 0 /* didn't get a good password */
  29. line3=
  30. line4=
  31. line5=
  32. line6=
  33. line7=
  34. line8=
  35. line9=
  36. line10=
  37. nextactiontype=3
  38. nextactionaction=
  39. endrecord=true
  40. startrecord=true
  41. label=
  42. nodetype=1
  43. filename='avm:voices/getpassword'
  44. comment=Enter your password.  End it with the # sign.
  45. keyactiontype=3
  46. keyactionaction=
  47. faxactiontype=0
  48. faxactionaction=stdfax
  49. dataactiontype=0
  50. dataactionaction=stddata
  51. busyactiontype=0
  52. busyactionaction=stdbusy
  53. abortactiontype=0
  54. abortactionaction=stdabort
  55. erroractiontype=0
  56. erroractionaction=stderror
  57. nextactiontype=3
  58. nextactionaction=
  59. endrecord=true
  60. startrecord=true
  61. label=
  62. nodetype=4
  63. timeout=7
  64. numkeys=10
  65. untilkey=11
  66. keyactiontype=0
  67. keyactionaction=getpasskeydetected
  68. faxactiontype=0
  69. faxactionaction=stdfax
  70. dataactiontype=0
  71. dataactionaction=stddata
  72. busyactiontype=0
  73. busyactionaction=stdbusy
  74. timedoutactiontype=3
  75. timedoutactionaction=
  76. abortactiontype=0
  77. abortactionaction=stdabort
  78. erroractiontype=0
  79. erroractionaction=stderror
  80. nextactiontype=3
  81. nextactionaction=
  82. endrecord=true
  83. startrecord=true
  84. label=
  85. nodetype=1
  86. filename='avm:voices/passwordtimeout'
  87. comment=You didn't enter a password or you didn't end it with the # sign.
  88. keyactiontype=3
  89. keyactionaction=
  90. faxactiontype=0
  91. faxactionaction=stdfax
  92. dataactiontype=0
  93. dataactionaction=stddata
  94. busyactiontype=0
  95. busyactionaction=stdbusy
  96. abortactiontype=0
  97. abortactionaction=stdabort
  98. erroractiontype=0
  99. erroractionaction=stderror
  100. nextactiontype=0
  101. nextactionaction=getpasswordagain
  102. endrecord=true
  103. startrecord=true
  104. label=getpasskeydetected
  105. nodetype=8
  106. line1=if value = password then return 1
  107. line2=
  108. line3=
  109. line4=
  110. line5=
  111. line6=
  112. line7=
  113. line8=
  114. line9=
  115. line10=
  116. nextactiontype=3
  117. nextactionaction=
  118. endrecord=true
  119. startrecord=true
  120. label=
  121. nodetype=1
  122. filename='avm:voices/passwordbad'
  123. comment=You didn't enter the correct password.
  124. keyactiontype=3
  125. keyactionaction=
  126. faxactiontype=0
  127. faxactionaction=stdfax
  128. dataactiontype=0
  129. dataactionaction=stddata
  130. busyactiontype=0
  131. busyactionaction=stdbusy
  132. abortactiontype=0
  133. abortactionaction=stdabort
  134. erroractiontype=0
  135. erroractionaction=stderror
  136. nextactiontype=0
  137. nextactionaction=getpasswordagain
  138. endrecord=true
  139.